home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlTreeViewExpand.au3 < prev    next >
Text File  |  2007-09-08  |  2KB  |  47 lines
  1. #include <GuiTreeView.au3>
  2.  
  3. opt("MustDeclareVars", 1)
  4. opt("GUIDataSeparatorChar", "\")
  5. Dim $h_GUI, $treeview, $nItem1, $nItem2, $nItem3
  6. Dim $nSubItem1, $nSubItem2, $nSubItem3, $nSubItem4, $nSubItem5, $nSubItem6, $nSubItem7
  7. Dim $Btn_Expand, $Btn_ExpandItem, $Msg, $Btn_Collapse, $Btn_CollapseItem
  8.  
  9. $h_GUI = GUICreate("TreeView Expand", 392, 254)
  10.  
  11. $treeview = GUICtrlCreateTreeView(10, 10, 150, 150)
  12. $nItem2 = GUICtrlCreateTreeViewItem("Item2", $treeview)
  13. $nItem1 = GUICtrlCreateTreeViewItem("Item1", $treeview)
  14. $nItem3 = GUICtrlCreateTreeViewItem("Item3", $treeview)
  15. $nSubItem2 = GUICtrlCreateTreeViewItem("SubItem2", $nItem1)
  16. $nSubItem1 = GUICtrlCreateTreeViewItem("SubItem1", $nItem1)
  17. $nSubItem4 = GUICtrlCreateTreeViewItem("SubItem4", $nSubItem1)
  18. $nSubItem5 = GUICtrlCreateTreeViewItem("SubItem5", $nSubItem4)
  19. $nSubItem6 = GUICtrlCreateTreeViewItem("SubItem6", $nSubItem5)
  20. $nSubItem3 = GUICtrlCreateTreeViewItem("SubItem3", $nSubItem1)
  21. $nSubItem7 = GUICtrlCreateTreeViewItem("SubItem7", $nItem3)
  22.  
  23. $Btn_Expand = GUICtrlCreateButton("Expand All", 70, 170, 90, 20)
  24. $Btn_Collapse = GUICtrlCreateButton("Collapse All", 200, 170, 90, 20)
  25. $Btn_ExpandItem = GUICtrlCreateButton("Expand Item1", 70, 200, 90, 20)
  26. $Btn_CollapseItem = GUICtrlCreateButton("Collapse Item1", 200, 200, 90, 20)
  27.  
  28. GUISetState()
  29.  
  30. While 1
  31.     $Msg = GUIGetMsg()
  32.     Select
  33.         Case $Msg = $GUI_EVENT_CLOSE
  34.             ExitLoop
  35.         Case $Msg = $Btn_Expand
  36.             _GUICtrlTreeViewExpand($treeview)
  37.         Case $Msg = $Btn_ExpandItem
  38.             _GUICtrlTreeViewExpand($treeview, 1, $nItem1)
  39.         Case $Msg = $Btn_Collapse
  40.             _GUICtrlTreeViewExpand($treeview, 0)
  41.         Case $Msg = $Btn_CollapseItem
  42.             _GUICtrlTreeViewExpand($treeview, 0, $nItem1)
  43.     EndSelect
  44. WEnd
  45.  
  46. Exit
  47.